#lang racket

(define (dollar-store? dollar-list)
  (cond
    [(empty? dollar-list) true]
    [else (and (< (first dollar-list) 1.0) 
               (dollar-store? (rest dollar-list)))]
    )
  )

(define price-list 
  (cons .2
     (cons .35
        (cons .57
          (cons .69
            (cons 1.2
              (cons .15 empty)))))))

(dollar-store? price-list)

